home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / DATABASE / TECH91.ZIP;1 / TI682.ASC < prev    next >
Encoding:
Text File  |  1991-08-26  |  4.3 KB  |  199 lines
  1.  
  2.  
  3.  
  4.  
  5.  
  6.  
  7.  
  8.   PRODUCT  :  Paradox                                NUMBER  :  682
  9.   VERSION  :  2.0 & up
  10.        OS  :  DOS
  11.      DATE  :  August 26, 1991                          PAGE  :  1/3
  12.  
  13.     TITLE  :  CONVERTING TEXT FIELDS TO INITIAL CAPS
  14.  
  15.  
  16.  
  17.  
  18.   Here is a script which will change words with all upper case
  19.   letters to a capitalized word (first letter capitalized only).
  20.   For instance your data currently reads "ED SMITH" but you want it
  21.   to read "Ed Smith".  To accomplish this perform the following
  22.   actions:
  23.  
  24.   From your main menu select <F10> {Scripts}/{Editor}/{Create} and
  25.   type the word CAPS and press <ENTER>.  On the screen which
  26.   follows, type the following code:
  27.  
  28.   ;==============================================================
  29.          EDIT "Table_Name"
  30.  
  31.          MOVETO [Field_Name]
  32.  
  33.          SCAN
  34.              []=FORMAT("CC", LOWER([]))
  35.          ENDSCAN
  36.  
  37.          MESSAGE
  38.          "Press [F2] to save.  Any other key to CANCEL changes."
  39.  
  40.          x = GETCHAR()
  41.  
  42.          IF x = -60 THEN           ; -60 equals "F2"
  43.              DO_IT!
  44.          ELSE
  45.              CANCELEDIT
  46.          ENDIF
  47.   ;==============================================================
  48.   Then select <F10> and {DO_IT!}
  49.  
  50.   To play the script, select <F10> {Scripts}/{Play}, type CAPS and
  51.   press <ENTER>.  An explanation of the above script follows, so
  52.   you can understand it and learn to modify it to better suit your
  53.   exact needs.
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  
  70.  
  71.  
  72.  
  73.  
  74.   PRODUCT  :  Paradox                                NUMBER  :  682
  75.   VERSION  :  2.0 & up
  76.        OS  :  DOS
  77.      DATE  :  August 26, 1991                          PAGE  :  2/3
  78.  
  79.     TITLE  :  CONVERTING TEXT FIELDS TO INITIAL CAPS
  80.  
  81.  
  82.  
  83.  
  84.   Comments:______________________________________________
  85.  
  86.   EDIT "Table_Name"   Selects the table in Edit Mode. Replace the
  87.                       word Table_Name with the actual name of your
  88.                       table.  Do not forget to type in the
  89.                       quotation marks.
  90.  
  91.   MOVETO [Field_Name] Selects the field.  Replace the word
  92.                       Field_Name with the name of the field which
  93.                       contains the data to be changed.  Do not
  94.                       forget the square brackets.
  95.  
  96.   SCAN                Tell Paradox to step through the table record
  97.                       by record and perform the following
  98.                       functions.
  99.  
  100.   []=FORMAT("CC",LOWER([]))     The LOWER function inside the
  101.   FORMAT
  102.                       function will change each word in the current
  103.                       field to lower-case. The "CC" part of the
  104.                       FORMAT function then changes the first letter
  105.                       in each word in the field to upper case.
  106.  
  107.   ENDSCAN             Ends the SCAN loop.
  108.  
  109.   MESSAGE             The MESSAGE command places a message on
  110.                       the screen for the user to respond to.
  111.  
  112.   X=GETCHAR()         This accepts one character from the
  113.                       keyboard.  The program will wait here
  114.                       until a key is pressed.  See also the
  115.                       related WAIT command in the PAL Guide.
  116.  
  117.   IF X=-60 THEN DO_IT!If the <F2> key is pressed, the changes to
  118.                       the table will be saved.
  119.  
  120.   ELSE CANCELEDIT     If ANYTHING else is pressed, the edit will be
  121.                       canceled and the changes lost.
  122.  
  123.   ENDIF               This closes the IF statement.
  124.  
  125.  
  126.  
  127.  
  128.  
  129.  
  130.  
  131.  
  132.  
  133.  
  134.  
  135.  
  136.  
  137.  
  138.  
  139.  
  140.   PRODUCT  :  Paradox                                NUMBER  :  682
  141.   VERSION  :  2.0 & up
  142.        OS  :  DOS
  143.      DATE  :  August 26, 1991                          PAGE  :  3/3
  144.  
  145.     TITLE  :  CONVERTING TEXT FIELDS TO INITIAL CAPS
  146.  
  147.  
  148.  
  149.  
  150.   Final Remarks:
  151.  
  152.   Everything in the script after the ENDSCAN statement can be left
  153.   out if the user chooses.  However if this is done, the user must
  154.   remember to either press <F2> or <F10> {DO_IT!} after playing the
  155.   script, or enter the line:
  156.  
  157.        DO_IT!
  158.  
  159.   after the ENDSCAN statement to save the changes the script has
  160.   made to the table.  If you do not wish to save the changes after
  161.   seeing them (if you have removed the lines after ENDSCAN), then
  162.   you must select <F10> {Cancel}/{Yes}.
  163.  
  164.  
  165.  
  166.  
  167.  
  168.  
  169.  
  170.  
  171.  
  172.  
  173.  
  174.  
  175.  
  176.  
  177.  
  178.  
  179.  
  180.  
  181.  
  182.  
  183.  
  184.  
  185.  
  186.  
  187.  
  188.  
  189.  
  190.  
  191.  
  192.  
  193.  
  194.  
  195.  
  196.  
  197.  
  198.  
  199.